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EDTSSCRESCR - erase screen 


RISILE eBRESERREEG = frase sereen" | 
ENT = 'v04-000' ! Erase screen 
= 


! File: SCRESCR.BLI Edit: JBS1012 


BEGIN 


SRR AEA AERA RARER AAA AEAAAEAAE EAE H ERAT AAAAAAAAEAEAAREREEEEAREE EE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


i® te hers fs A gt ne UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE has OF SUCH bce SE AND WITH THE 
:* INCLUSION OF THE ABOVE se nacinee OTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE P ED 

!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
te 
® 
® 
® 
® 
® 
e 
ie TRANSFERRED. ‘ 
® 
® 
® 
® 
® 
® 
® 
® 
* 
® 
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!# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. aRPORAT ihe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i FACILITY: EDT == The DEC Standard Editor 
i ABSTRACT: 
This module outputs an erase screen sequence. 
i ENVIRONMENT: Runs at any access mode - AST reentrant 


SSsssssoosese 


WALA ANNWAIWNIAIWIin 


= COE IOINITINIEININIRIND SAS DD Daa Bn 
ONO wr 


9 ! 
29 994 ! AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
‘ 004 i MODIFIED BY: 
&& 04 
45 =*hegulart the routine EDTS$SC ERA from module SCREE 
4 ze headers. JBS 15-Mar- 


—e 
$s 
oOo 
wn 
v 
mel 
q 
° 


message flag to sere when the screen is erased. me 3p-hug- 138 
Add code to erase line by 100, uu f,pessoge thag. Set, sre 4-Sep-198 
Revise the handling of EDT$$G BS 0 


15 
* & 1 1384 9}: 2:58 VAX-11 Bliss-32 V4.0-7 
14- =3ep =| 2:24:2 DISKSVMSMASTER: a i sre SCRESCR.BLI; a 


Use the fancy screen clearin 

clearing when the messa ge l 
Don't clear EDT$$G +p = 4 
Fix clearing one Lin 


co of eke vFt00 to speed up gereen 
must be preserved. jes. 6-O0ct-1 


en clearing the 


ne 
unions we are ng. thet the whole screen. JBS 07-0ct-1982 


ext area. JBS 09-Oct-1982 


-0ct-1982 
JBS 11-Jan-1983 
3-mar-1983 


Set the cursor position before erasing. JBS 
If the cursor Line is -1 (initial value) use 
Allow for new value of EDTS$G_SCR_CHGD. JBS 


ae ne ee ee ee eS SS) 
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' 
' 
' 
' 
' 
' 
' 
! 
A 
' 
' 
' 
; 1-001 =~ Original. Dus brat Ee rete module was created 4 
‘ 
' 
' 
1 
‘ 
‘ 
' 
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4 
' 
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ssssessseses 


PAPA 
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Remove the call to EDTSSOUT arhTBUr JBS he 
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| 
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he a eetramanoween genet net i mH 71382 9: 34: 38 Mf SKSVMGHA sfeacceo dT. OSRCISCRESCR. BLI;1 a8 


89 039 j 
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31 


$screscr.But; 
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DISKSVMSMASTER:CEDT.SRC 


VAX-11 Bliss-32 V4 


12=8eb= 1382 93:32:58 


18-52 


EDTSSCRESCR = erase screen 


Declarations 


s 
es 


K 
CR 
C. 


NG (ZCHAR (ASC 
ING (ZCHAR (AS 
RING (ZCHAR (AS 


om OF 


: NOVALUE; 
T 
S 
% 


-— Jo " 


In the routine 


EDTS$SC_ERAALL 


INCLUDE FILES: 
EXTERNAL REFERENCES: 


TABLE OF CONTENTS: 
NONE 
EQUATED SYMBOLS: 

S. 
Ss. 
S. 
$_5 
S71 
$71 
OWN STORAGE: 
NONE 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 


OOM TNT DOOKU. DAKO CUM TMNOR. DOO CMT OOoerwnm 
SSS SSeaararnanssscacaesesuasesseseseeeaes 


SSSSSSSSSRENCAKLARR SaVosooOOOSROTSORASS OOS 


[ce eed oat 


PRPS HS HS HS HS HS HS HS HS SS HS FS SSSR FOSS SS FS SS FS Se FS Se sere te te © Seerere rte rterearea*e se *e re *e re 


i 
H 15 
EDTSSCRESCR EDTSSCRESCR = erase screen 16-Sep-1984 01:32:4 VAX-11 Bliss-32 V4.0-74 Page 4 
104-000 EDTSSSC ERAALL - erase screen 12286871383 93:32:38 DLSKSVMGMASTERSCEDT  SRCISCRESCR.BLIs1 (3) | 
s } : ie ] ZSBTTL "EDTSSSC_ERAALL = erase screen’ | 
3; $76 1 GLOBAL ROUTINE EDTSS$SC_ERAALL ! Erase screen | 
g<% 677 1 : NOVALUE = 
a 678 1 
3 3 79 1 S44 
; 139 6 9 ! : FUNCTIONAL DESCRIPTION: 
3 116 § 1? This routine erases the screen from the current location to | 
s; 6 1; the end of the screen, or to just before the message Line 
3 ie ? ¢ ! } if there is useful text in the message Line. 
; 118 $ 1 ! FORMAL PARAMETERS: 
3 4% 1! 
; 118 obs 1! NONE 
; 119 9 1! 
: 120 90 1 ! IMPLICIT INPUTS: 
3 6UVer 691 1! 
72% ¢ Bee 1! EDTS$$G_CS_LNO 
oS 06935 1! EDTS$$G_SCR_LNS 
: 124 0694 1! EDTS$G_MSGFLG 
3 ve 0695 1! EDTS$G_TI_TYP 
; 126 0696 1! EDT$$G_SCR_CHGD 
: 127 0697 1! EDT$$G_TI_QID 
; 128 98 1! 
FH 198 99 1! IMPLICIT OUTPUTS: 
, ¥ 0700 1! 
s 33) 0701 1! EDTSS$G_MSGFLG 
3 136 O78 1! EDTS$$G_SCR_CHGD 
.:% 0703 1! 
5 ¥ 0704 1 ! ROUTINE VALUE: 
3 tae 0705 1! 
5; in 0706 1! NONE 
: it 14 0707 1! 
; 138 0708 1 ! SIDE EFFECTS: 
; 139 0709 1! 
: 140 0710 1! NONE 
3: (141 0711 1! 
; 4 Orie 1 !<e< 
; 16 0713 1 
3 144 0714 BEGIN 
3; 145 0715 
3; 146 0716 EXTERNAL ROUTINE 
3; 147 0717 TS$SC_ERATOEOL : NOVALUE, ! Erase to end of Line 
3; 148 0718 EDTS$SC_POSCSIF : NOVALUE, ! Position the cursor : 
3 13) 1484 EDTSSFMT_LIT : NOVALUE; ! Output a string without expansion 
: 151 oF 1 EXTERNAL 
3 136 7 § EDT$$G_CS_LNO ' current cursor Line 
> 15 07 EDT$$G_SCR_LNS, i number of screen Lines 
: 154 0724. EDT$$G_MSGFLG, ! 1 = there is a message on the message Line 
s 935 8 > * EDT$$G_TI_TYP ! Terminal type 
3; 6156 726 EDT$$G_SCR CHGD, ! non-zero = the screen must be erased completely 
3 13 of : EDT$$G_TI_OID; ! The width of the screen 
3; «159 729 LOCAL 
: 160 0730 INE_NO; 
| 
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15 
SiR = erase screen 1e-Sen-1986 1:32:48 VA 


BANANAMAN BHF LW MUNI PIPININ ANA NAAN HII PURIPOPINOPUNIPONONONPONONNY 


Liss-32 V4. 
Bliss 32 Vv Page ; 


X=11 0-743 a 
SKSVMSMASTER:CEDT.SRCJSCRESCR.BLI;1 (3 
LINE_NO = .EDTS$$G_CS_LNO; 

IF (.LINE_NO LSS 0) THEN LINE_NO = 0; 


1+ 
: If the screen has been mangled then there can be nothing useful on the message Line. 


IF (.EDTSSG_SCR_CHGD NEQ 0) THEN EDTSS$G_MSGFLG = 0; 
+ 
Use different algorithms depending on whether or not we must protect the message Line. 


IF (.EDTSSG_MSGFLG EQL 0) 
THEN 


BEGIN 
EDTS$S$SC_POSCSIF (.LINE_NO, 0); 
IF (.EDT$$G_TI_TYP EQL TERM_VTS2) 


EDTSSFMT_LIT (ERS_S_52, ERS_S_52_LEN) 
ELSE 


IF (.EDTSSG_TI_TYP EQL TERM_VT100) THEN EDTSSFMT_LIT (ERS_S_100, ERS_S_100_LEN); 
1+ 

: If we are erasing the whole screen then the screen is no longer mangled. 

IF (.LINE_NO EQL 0) THEN EDT$$G_SCR_CHGD = 0; 


END 
ELSE 
'¢ 


i we must preserve the message line. If we have a VT100 and are at the home position 


! we can use a ‘clear from beginnning of screen to here’’ command. 
BEGIN 


] 
| 
| 

'¢ : 

Erase to the end of the screen. 

rg ee EQL TERM_VT190) AND (.LINE_NO EQL 0)) 


BEGIN 
EDT$$SC_POSCSI 
EDTSSFMT_LIT ( 
END 

ELSE 
'¢ 


Erase each Line separately up to the message Line. 


F (.EDT$$G_SCR_LNS - 1, .ED'S$G_TI_WID - 1); 
ERS_S_100A; ERS_S_100A.LEN); 


INCR_ I FROM .LINE_NO TO .EDTS$G_SCR_LNS - 1 DO 
BEGIN 


| on 
| m 
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VAX-11 Bliss-32_ V4.0-74 
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- erase screen 


CRESCR = erase screen 
SC_ERAALL 


EDISS 


E TepeResce 


! of routine EDTSS$SC_ERAALL 


TITLE corescngsce EDTSSCRESCR - erase screen 
IDENT \v04-000\ 


PIC,2 


-EDTSCODE,NOWRT, SHR, 


«PSECT 


00 P.AAA: 
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ooo 
ooo 


_CHGD 


EDT$$G_CS_LNO 
LNS, EDTSSG_MSGFLG 
, EDT$$G_SCR 


AA 

A 
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FMT LIT, 
G_StR . 
G_TI_TYP 
G_TI_WID 
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. 
& 2 
@ a 
> wWwrw ow 
«a eawz — 
“" eo _ “no 
coaa + +s. va _ 
bs * 4 au a w _ 
i = Oe 5 o oO - a) 
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EDTSSCRESCR EDTSSCRESCR - erase screen -1984 01:32:4 Ax-11 s- 
ba -000 ED Teese ERAALL = erase screen eats ri 93:32:58 ST eKSVMGHAS teReche oT. OSRCISCRESCR. BLI; a 


wm 


10$ 
CLRL EDTS$$G_SCR_CHGD 


#1, EDT$$G_SCR_LNS, R3 
CMPL Epts G_TI_TYP, "#2 


TSTL NE_NO 
SUBL3 ate EDTS$G_TI_WID, -(SP) 
CALLS aoe EDTS$SC_POSCSIF 


o 
wn 
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@ 
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tn 
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7E 000000006 00 
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FF74 


ERS_S_100A 
58 CALLS #2, EDTSSFMT_LIT 
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CALLS i. peteese -POSCSIF 
CALLS - ED Tessc_ ERATOEOL 
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; Routine Size: 163 bytes, Routine Base: _EDTSCODE + 000C 


0795 1 
0796 1 !<BLF/PAGE> 
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EDTSSCRESCR EDTSSCRESCR = erase screen 18-50 Sep-1984 VAX-11 Bliss-32 V4.0-7 Pa 
042000 EDTSESC ERAALL - erase screen ~3ep-1984 93:32 38 DISKSVMSMASTER: choi sre SCRESCR.BLI;1 _ 
: 39 O78 ! END ! of module EDTSSCRESCR 

; 7 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: -EDTSCODE 175 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

3 quncnnns SyEbOlG sowsrece Pages Processing 

5 File Total Loaded Percent Mapped Time 

; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 3 0 40 00:00.2 

z ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 ? 1 50 7 00:00.1 

: COMMAND QUALIFIERS 


FL ISE/CUECE CF SELB, INET EAL .GPTIRIZE/UBTRACEBACEAL Sat, 198: SCRE SCR/ORIOOB IS: SCRESER MSRC$:SCRESCR.BLI/UPDATE=(ENHS:SCRESCR 


3: Size: 163 code + 12 data bytes 
: i 13.2 : 
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3 Used: 85 pages 
: Compile ote 
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